# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Named-Pipes.t'

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 3;
BEGIN { use_ok('Named::Pipes') };
use Time::HiRes qw{usleep};
#########################

# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.

my ($fout,$fin,$err) = Named::Pipes->open('toap','tome','err','bc');

$fin->blocking(0);

my $result;


syswrite $fout, "2+3\n";
usleep(100);
my $bytes = sysread $fin, $result, 1024;

is  ($result, "5\n", 'probando una suma');



syswrite $fout, "8*2\n";
usleep(100);
my $bytes = sysread $fin, $result, 1024;

is  ($result, "16\n", 'probando una multiplicacion');